﻿Public Class AddInHelper
    Implements IHelper

    Public Sub New(ByVal dispatcher As Windows.Threading.Dispatcher)
        _Dispatcher = dispatcher
    End Sub

    Public Sub OpenUri(ByVal uri As System.Uri) Implements IHelper.OpenUri
        Dim button = New NavigationHyperlinkButton
        Try
            button.Navigate(uri)
        Catch
        End Try
    End Sub

    Private _Dispatcher As Windows.Threading.Dispatcher
    Public ReadOnly Property Dispatcher As System.Windows.Threading.Dispatcher Implements IHelper.Dispatcher
        Get
            Return _Dispatcher
        End Get
    End Property

End Class
